home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / dvi2pcl / pkcharinfo.c < prev    next >
C/C++ Source or Header  |  1992-11-24  |  3KB  |  96 lines
  1. /* $Log:    pkcharinfo.c,v $
  2.  * Revision 0.8  92/11/23  19:46:52  19:46:52  bt (Bo Thide')
  3.  * Fixed resolution bug. Portable downloading. Added/changed options. PJXL color support
  4.  * 
  5.  * Revision 0.7  92/11/13  02:41:36  02:41:36  bt (Bo Thide')
  6.  * More bug fixes and improvements. Support for PaintJet XL
  7.  * 
  8.  * Revision 0.6  92/11/10  21:48:34  21:48:34  bt (Bo Thide')
  9.  * Bug fixes. Added -R option. Better font handling.
  10.  * 
  11.  * Revision 0.5  92/11/09  16:25:40  16:25:40  bt (Bo Thide')
  12.  * Rewrite of dospecial.c. Extended \special support
  13.  * 
  14.  * Revision 0.4  92/11/08  02:45:56  02:45:56  bt (Bo Thide')
  15.  * Changed to portable bit manipulations. Replaced strrstr for non-POSIX compliant C. Fixed numerous bugs. Added support for more \special's.
  16.  * 
  17.  * Revision 0.3  92/08/24  12:45:47  12:45:47  bt (Bo Thide')
  18.  * Fixed 8 bit (dc font) support.
  19.  * 
  20.  * Revision 0.2  92/08/23  17:28:59  17:28:59  bt (Bo Thide')
  21.  * Source cleaned up.  Changed certain function calls.  Removed globals.
  22.  * 
  23.  * Revision 0.1  92/08/22  23:58:48  23:58:48  bt (Bo Thide')
  24.  * First Release.
  25.  *  */
  26.  
  27. /*
  28.  * This routine determines the global variables 
  29.  *    c_flag, dyn_f, c_width, c_height, c_hoffset, c_voffset
  30.  * for the character c. (cbase + c)->pk_char points to its flag byte relative
  31.  * to pkbase. It returns a pointer, which points to the first run count of
  32.  * the character in progress.
  33.  */
  34.  
  35. #include <stdio.h>
  36. #include "globals.h"
  37. #include "macros.h"
  38.  
  39. byte *pkcharinfo(c)
  40. int c;
  41. { 
  42.     int format;
  43.     byte *p;
  44.     charfmt *u;
  45.     long tfm;
  46.  
  47.     u = cbase + c;
  48.     if(u->pk_char == 0) {
  49.         c_flag = dyn_f = c_width = c_height = c_hoffset = c_voffset = 0;
  50.         if(verbose)
  51.             fprintf(stderr, "Character %d does not exist in this font\n",c);
  52.         return(NULL);
  53.     }
  54.     p = pkbase + u->pk_char;
  55.     c_flag = getpubyte(p);
  56.     dyn_f = c_flag >> 4;
  57.     format = c_flag & FMASK;
  58.  
  59.     if(format < 4) {
  60.         p += 2;
  61.         tfm = getputrio(p);
  62.         p++;
  63.         c_width = getpubyte(p);
  64.         c_height = getpubyte(p);
  65.         c_hoffset = getpsbyte(p);
  66.         c_voffset = getpsbyte(p);
  67.     }
  68.     else if(format < 7) {
  69.         p += 3;
  70.         tfm = getputrio(p);        
  71.         p += 2;
  72.         c_width = getpupair(p);
  73.         c_height = getpupair(p);
  74.         c_hoffset = getpspair(p);
  75.         c_voffset = getpspair(p);
  76.     }
  77.     else {
  78.         p += 8;
  79.         tfm = getpuquad(p);        
  80.         p += 8;
  81.         c_width = getpuquad(p);
  82.         c_height = getpuquad(p);
  83.         c_hoffset = getpsquad(p);
  84.         c_voffset = getpsquad(p);
  85.     }
  86.     u->tfm_width = round(tfm*convtfm);
  87.     u->pxl_width = round(tfm*convpxl);
  88.  
  89. #ifdef DEBUG
  90. fprintf(stderr,"pkcharinfo: tfm = %ld, convtfm = %g, convpxl = %g\n",
  91.   tfm, convtfm, convpxl);
  92. #endif /* DEBUG */
  93.  
  94.     return(p);
  95. }
  96.